﻿<%@LANGUAGE="VBSCRIPT" %>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Help Navigation</title>
<link href="UniversalStyleSheet.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style8 {
	font-size: small;
	font-weight: bold;
	color: #000000;
	font-family:Arial, Helvetica, sans-serif;
	cursor:pointer;
}
.style9 {
	font-size: small;
	font-weight: bold;
	color: #0000FF;
	font-family:Arial, Helvetica, sans-serif;
}
.style10 {
	font-size:x-small;
	font-weight:bold;
	color: #0000FF;
	font-family:Arial, Helvetica, sans-serif;
}
ul{
	list-style:inside;
	margin-left: 0; 
	padding-left: 0;
}

.ulhide{ display:none}
.ulshow{ display:inline}
.plusminus {
	background-color:#000099;
	color:#FFFFFF;
	font-family:Arial, Helvetica, sans-serif;
	font-size:12px;
	font-weight:bold;
	width:10;
	text-align:center;
}
-->
</style>
<script type="text/javascript">
function ShowHide (id){
	l=document.getElementById("ul" + id)
	p=document.getElementById("p" + id)
	if (l.className == "ulhide"){
		l.className="ulshow"
		p.innerHTML ="▼"
	}
	else{
		l.className="ulhide"
		p.innerHTML ="►"
	}
}
</script>
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
	<%
	dim db,rs,subrs
	set db=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	set subrs=server.createobject("adodb.recordset")
	
	rs.cursorlocation=3
	subrs.cursorlocation=3
	FilePath=server.MapPath("access/backend/help.mdb")
	db.open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath)
	sql="select title, id from HelpTopics where catagory='header'"
	rs.open sql,db,1,2
	rs.activeconnection=nothing
	
	do until rs.eof'headers
		title=server.HTMLEncode(rs("title"))
		id=rs("id")
		response.Write("<span id=p" & id & " class=plusminus>►</span>" & vbcrlf)
		response.Write("<span class='style8' id=h" & id & " onclick='ShowHide(" & id & ")'>" & title & " </span><br/>" & vbcrlf)
		response.Write("<ul id=ul" & id & " class='ulhide'>")
		subrs.open "select * from HelpTopics where parent=" & rs("id"),db,1,2
		subrs.activeconnection=nothing
		do until subrs.eof'articles
			title=subrs("title")
			response.Write("<li><a href='HelpMain.asp?subject=" & subrs("id") & "' target='HelpMain' class='style10'>" & subrs("title") & "</a></li>" & vbcrlf)
			subrs.movenext
		loop
		response.Write("</ul>" & vbcrlf)
		subrs.close
		rs.movenext
	loop	
	rs.close
	db.close
	set rs=nothing
	set db=nothing
%>	</td>
  </tr>
  <tr>
    <td >&nbsp;</td>
  </tr>
  <tr>
    <td><a href="HelpEmail.asp" target="HelpMain" class="style9">Send Email </a></td>
  </tr>
</table>


</body>
</html>
